/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / modes / xpm-mode.elc

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 31 30 3a 35 | 35 20 31 39 39 35 0a 3b | 14:10:5|5 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 6d 6f | 64 65 73 2f 78 70 6d 2d |/lisp/mo|des/xpm-|
|00000090| 6d 6f 64 65 2e 65 6c 0a | 3b 3b 3b 20 65 6d 61 63 |mode.el.|;;; emac|
|000000a0| 73 20 76 65 72 73 69 6f | 6e 20 31 39 2e 31 33 20 |s versio|n 19.13 |
|000000b0| 58 45 6d 61 63 73 20 4c | 75 63 69 64 2e 0a 3b 3b |XEmacs L|ucid..;;|
|000000c0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000d0| 6f 6e 20 32 2e 32 35 3b | 20 31 2d 53 65 70 2d 39 |on 2.25;| 1-Sep-9|
|000000e0| 34 2e 0a 3b 3b 3b 20 6f | 70 74 69 6d 69 7a 61 74 |4..;;; o|ptimizat|
|000000f0| 69 6f 6e 20 69 73 20 6f | 6e 2e 0a 3b 3b 3b 20 74 |ion is o|n..;;; t|
|00000100| 68 69 73 20 66 69 6c 65 | 20 75 73 65 73 20 6f 70 |his file| uses op|
|00000110| 63 6f 64 65 73 20 77 68 | 69 63 68 20 64 6f 20 6e |codes wh|ich do n|
|00000120| 6f 74 20 65 78 69 73 74 | 20 69 6e 20 45 6d 61 63 |ot exist| in Emac|
|00000130| 73 20 31 38 2e 0a 0a 28 | 69 66 20 28 61 6e 64 20 |s 18...(|if (and |
|00000140| 28 62 6f 75 6e 64 70 20 | 27 65 6d 61 63 73 2d 76 |(boundp |'emacs-v|
|00000150| 65 72 73 69 6f 6e 29 0a | 09 20 28 6f 72 20 28 61 |ersion).|. (or (a|
|00000160| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 70 6f 63 |nd (boun|dp 'epoc|
|00000170| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 20 65 70 6f 63 |h::versi|on) epoc|
|00000180| 68 3a 3a 76 65 72 73 69 | 6f 6e 29 0a 09 20 20 20 |h::versi|on)..   |
|00000190| 20 20 28 73 74 72 69 6e | 67 2d 6c 65 73 73 70 20 |  (strin|g-lessp |
|000001a0| 65 6d 61 63 73 2d 76 65 | 72 73 69 6f 6e 20 22 31 |emacs-ve|rsion "1|
|000001b0| 39 22 29 29 29 0a 20 20 | 20 20 28 65 72 72 6f 72 |9"))).  |  (error|
|000001c0| 20 22 54 68 69 73 20 66 | 69 6c 65 20 77 61 73 20 | "This f|ile was |
|000001d0| 63 6f 6d 70 69 6c 65 64 | 20 66 6f 72 20 45 6d 61 |compiled| for Ema|
|000001e0| 63 73 20 31 39 2e 22 29 | 29 0a 0a 28 62 79 74 65 |cs 19.")|)..(byte|
|000001f0| 2d 63 6f 64 65 20 22 c0 | c1 21 88 c2 c3 21 ac 82 |-code ".|.!...!..|
|00000200| c4 13 c2 c5 21 ac 82 c4 | 15 c2 c6 21 ac 83 c4 16 |....!...|...!....|
|00000210| 06 c2 c7 21 ac 83 c4 16 | 07 c2 c8 21 ac 83 c9 16 |...!....|...!....|
|00000220| 08 c2 ca 21 ac 83 c4 16 | 5c 6e c4 87 22 20 5b 72 |...!....|\n.." [r|
|00000230| 65 71 75 69 72 65 20 61 | 6e 6e 6f 74 61 74 69 6f |equire a|nnotatio|
|00000240| 6e 73 20 62 6f 75 6e 64 | 70 20 78 70 6d 2d 70 69 |ns bound|p xpm-pi|
|00000250| 78 65 6c 2d 76 61 6c 75 | 65 73 20 6e 69 6c 20 78 |xel-valu|es nil x|
|00000260| 70 6d 2d 67 6c 79 70 68 | 20 78 70 6d 2d 61 6e 6e |pm-glyph| xpm-ann|
|00000270| 6f 20 78 70 6d 2d 70 61 | 69 6e 74 2d 73 74 72 69 |o xpm-pa|int-stri|
|00000280| 6e 67 20 78 70 6d 2d 63 | 68 61 72 73 2d 70 65 72 |ng xpm-c|hars-per|
|00000290| 2d 70 69 78 65 6c 20 31 | 20 78 70 6d 2d 70 61 6c |-pixel 1| xpm-pal|
|000002a0| 65 74 74 65 5d 20 32 29 | 0a 28 64 65 66 76 61 72 |ette] 2)|.(defvar|
|000002b0| 20 78 70 6d 2d 61 6c 77 | 61 79 73 2d 75 70 64 61 | xpm-alw|ays-upda|
|000002c0| 74 65 2d 69 6d 61 67 65 | 20 6e 69 6c 20 22 5c 0a |te-image| nil "\.|
|000002d0| 49 66 20 6e 6f 6e 2d 6e | 69 6c 2c 20 75 70 64 61 |If non-n|il, upda|
|000002e0| 74 65 20 61 63 74 75 61 | 6c 2d 73 69 7a 65 20 69 |te actua|l-size i|
|000002f0| 6d 61 67 65 20 61 66 74 | 65 72 20 65 76 65 72 79 |mage aft|er every|
|00000300| 20 63 6c 69 63 6b 20 6f | 72 20 64 72 61 67 20 6d | click o|r drag m|
|00000310| 6f 76 65 6d 65 6e 74 2e | 0a 4f 74 68 65 72 77 69 |ovement.|.Otherwi|
|00000320| 73 65 2c 20 6f 6e 6c 79 | 20 75 70 64 61 74 65 20 |se, only| update |
|00000330| 6f 6e 20 62 75 74 74 6f | 6e 20 72 65 6c 65 61 73 |on butto|n releas|
|00000340| 65 73 20 6f 72 20 77 68 | 65 6e 20 61 73 6b 65 64 |es or wh|en asked|
|00000350| 20 74 6f 2e 20 20 54 68 | 69 73 20 69 73 20 73 6c | to.  Th|is is sl|
|00000360| 6f 77 2e 22 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |ow.").(b|yte-code|
|00000370| 20 22 c0 c1 21 88 c0 c2 | 21 88 c0 c3 21 88 c0 c4 | "..!...|!...!...|
|00000380| 21 88 c0 c5 21 88 c0 c6 | 21 87 22 20 5b 6d 61 6b |!...!...|!." [mak|
|00000390| 65 2d 76 61 72 69 61 62 | 6c 65 2d 62 75 66 66 65 |e-variab|le-buffe|
|000003a0| 72 2d 6c 6f 63 61 6c 20 | 78 70 6d 2d 70 61 6c 65 |r-local |xpm-pale|
|000003b0| 74 74 65 20 78 70 6d 2d | 63 68 61 72 73 2d 70 65 |tte xpm-|chars-pe|
|000003c0| 72 2d 70 69 78 65 6c 20 | 78 70 6d 2d 70 61 69 6e |r-pixel |xpm-pain|
|000003d0| 74 2d 73 74 72 69 6e 67 | 20 78 70 6d 2d 67 6c 79 |t-string| xpm-gly|
|000003e0| 70 68 20 78 70 6d 2d 61 | 6e 6e 6f 20 78 70 6d 2d |ph xpm-a|nno xpm-|
|000003f0| 70 69 78 65 6c 2d 76 61 | 6c 75 65 73 5d 20 32 29 |pixel-va|lues] 2)|
|00000400| 0a 28 66 73 65 74 20 27 | 78 70 6d 2d 6d 61 6b 65 |.(fset '|xpm-make|
|00000410| 2d 66 61 63 65 20 23 5b | 28 6e 61 6d 65 29 20 22 |-face #[|(name) "|
|00000420| c0 c1 c2 0b 50 21 c4 c5 | 23 1e 06 c7 0e 06 0b 5c |....P!..|#......\|
|00000430| 22 88 c8 0e 06 c9 5c 22 | 88 0e 06 29 87 22 20 5b |".....\"|...)." [|
|00000440| 6d 61 6b 65 2d 66 61 63 | 65 20 69 6e 74 65 72 6e |make-fac|e intern|
|00000450| 20 22 78 70 6d 2d 22 20 | 6e 61 6d 65 20 22 54 65 | "xpm-" |name "Te|
|00000460| 6d 70 6f 72 61 72 79 20 | 78 70 6d 2d 6d 6f 64 65 |mporary |xpm-mode|
|00000470| 20 66 61 63 65 22 20 74 | 20 66 61 63 65 20 73 65 | face" t| face se|
|00000480| 74 2d 66 61 63 65 2d 62 | 61 63 6b 67 72 6f 75 6e |t-face-b|ackgroun|
|00000490| 64 20 73 65 74 2d 66 61 | 63 65 2d 66 6f 72 65 67 |d set-fa|ce-foreg|
|000004a0| 72 6f 75 6e 64 20 22 62 | 6c 61 63 6b 22 5d 20 34 |round "b|lack"] 4|
|000004b0| 20 22 5c 0a 4d 61 6b 65 | 73 20 61 20 66 61 63 65 | "\.Make|s a face|
|000004c0| 20 77 69 74 68 20 6e 61 | 6d 65 20 78 70 6d 2d 4e | with na|me xpm-N|
|000004d0| 41 4d 45 2c 20 61 6e 64 | 20 63 6f 6c 6f 75 72 20 |AME, and| colour |
|000004e0| 4e 41 4d 45 2e 22 5d 29 | 0a 28 66 73 65 74 20 27 |NAME."])|.(fset '|
|000004f0| 78 70 6d 2d 69 6e 69 74 | 20 23 5b 6e 69 6c 20 22 |xpm-init| #[nil "|
|00000500| c0 c1 21 88 c2 13 c4 20 | 88 c2 15 c6 c7 21 88 8a |..!.... |.....!..|
|00000510| 65 62 88 c8 79 88 c9 ca | 21 88 cb cc 21 ac 86 c9 |eb..y...|!...!...|
|00000520| ca 21 88 aa 75 c9 ca 21 | 88 cb cc 21 ac 86 c9 ca |.!..u..!|...!....|
|00000530| 21 88 aa 75 c8 1e 0d 0e | 0d ce 20 57 ab 91 cf 20 |!..u....|.. W... |
|00000540| 88 0e 0d 54 16 0d c9 ca | 21 88 c8 79 88 aa 68 2a |...T....|!..y..h*|
|00000550| 0e 10 d1 3d ac 83 d1 20 | 88 d2 0e 13 d4 20 d5 42 |...=... |..... .B|
|00000560| 5c 22 88 d2 0e 16 70 0d | 42 5c 22 88 c6 d7 21 88 |\"....p.|B\"...!.|
|00000570| d8 20 88 c6 d9 21 88 da | 20 87 22 20 5b 72 65 71 |. ...!..| ." [req|
|00000580| 75 69 72 65 20 70 69 63 | 74 75 72 65 20 6e 69 6c |uire pic|ture nil|
|00000590| 20 78 70 6d 2d 70 69 78 | 65 6c 2d 76 61 6c 75 65 | xpm-pix|el-value|
|000005a0| 73 20 78 70 6d 2d 63 6c | 65 61 72 2d 65 78 74 65 |s xpm-cl|ear-exte|
|000005b0| 6e 74 73 20 78 70 6d 2d | 70 61 6c 65 74 74 65 20 |nts xpm-|palette |
|000005c0| 6d 65 73 73 61 67 65 20 | 22 46 69 6e 64 69 6e 67 |message |"Finding|
|000005d0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 63 6f 6c 6f 72 | number |of color|
|000005e0| 73 2e 2e 2e 22 20 30 20 | 6e 65 78 74 2d 6c 69 6e |s..." 0 |next-lin|
|000005f0| 65 20 31 20 6c 6f 6f 6b | 69 6e 67 2d 61 74 20 22 |e 1 look|ing-at "|
|00000600| 5c 5c 73 2d 2a 5c 22 22 | 20 63 6f 20 78 70 6d 2d |\\s-*\""| co xpm-|
|00000610| 6e 75 6d 2d 63 6f 6c 6f | 72 73 20 78 70 6d 2d 70 |num-colo|rs xpm-p|
|00000620| 61 72 73 65 2d 63 6f 6c | 6f 72 20 6d 61 6a 6f 72 |arse-col|or major|
|00000630| 2d 6d 6f 64 65 20 70 69 | 63 74 75 72 65 2d 6d 6f |-mode pi|cture-mo|
|00000640| 64 65 20 73 65 74 2d 73 | 70 65 63 69 66 69 65 72 |de set-s|pecifier|
|00000650| 20 6c 65 66 74 2d 74 6f | 6f 6c 62 61 72 2d 77 69 | left-to|olbar-wi|
|00000660| 64 74 68 20 73 65 6c 65 | 63 74 65 64 2d 66 72 61 |dth sele|cted-fra|
|00000670| 6d 65 20 31 36 20 6c 65 | 66 74 2d 74 6f 6f 6c 62 |me 16 le|ft-toolb|
|00000680| 61 72 20 22 50 61 72 73 | 69 6e 67 20 62 6f 64 79 |ar "Pars|ing body|
|00000690| 2e 2e 2e 22 20 78 70 6d | 2d 63 6f 6c 6f 72 2d 64 |..." xpm|-color-d|
|000006a0| 61 74 61 20 22 50 61 72 | 73 69 6e 67 20 62 6f 64 |ata "Par|sing bod|
|000006b0| 79 2e 2e 2e 64 6f 6e 65 | 22 20 78 70 6d 2d 73 68 |y...done|" xpm-sh|
|000006c0| 6f 77 2d 69 6d 61 67 65 | 5d 20 34 20 22 5c 0a 54 |ow-image|] 4 "\.T|
|000006d0| 72 65 61 74 20 74 68 65 | 20 63 75 72 72 65 6e 74 |reat the| current|
|000006e0| 20 62 75 66 66 65 72 20 | 61 73 20 61 6e 20 78 70 | buffer |as an xp|
|000006f0| 6d 20 66 69 6c 65 20 61 | 6e 64 20 63 6f 6c 6f 72 |m file a|nd color|
|00000700| 69 7a 65 20 69 74 2e 22 | 20 6e 69 6c 5d 29 0a 28 |ize it."| nil]).(|
|00000710| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 4d 88 c2 |byte-cod|e "..M..|
|00000720| c3 4d 88 c4 c5 4d 88 c6 | c7 4d 87 22 20 5b 78 70 |.M...M..|.M." [xp|
|00000730| 6d 2d 63 6c 65 61 72 2d | 65 78 74 65 6e 74 73 20 |m-clear-|extents |
|00000740| 23 5b 6e 69 6c 20 22 c0 | 89 19 1a c1 70 21 12 c1 |#[nil ".|....p!..|
|00000750| 5c 6e 21 11 5c 6e ad 8c | c3 5c 6e 21 88 09 12 c1 |\n!.\n..|.\n!....|
|00000760| 5c 6e 21 11 aa 71 2a 87 | 22 20 5b 6e 69 6c 20 6e |\n!..q*.|" [nil n|
|00000770| 65 78 74 2d 65 78 74 65 | 6e 74 20 63 75 72 2d 65 |ext-exte|nt cur-e|
|00000780| 78 74 65 6e 74 20 64 65 | 6c 65 74 65 2d 65 78 74 |xtent de|lete-ext|
|00000790| 65 6e 74 5d 20 32 5d 20 | 78 70 6d 2d 63 6f 6c 6f |ent] 2] |xpm-colo|
|000007a0| 72 2d 64 61 74 61 20 23 | 5b 6e 69 6c 20 22 8a c0 |r-data #|[nil "..|
|000007b0| c1 21 88 c2 89 89 1b 1c | 1d 60 64 57 ad ab 60 60 |.!......|.`dW..``|
|000007c0| 0e 06 5c 5c 7b 14 c7 0c | 0e 08 5c 22 13 c9 60 60 |..\\{...|..\"..``|
|000007d0| 0e 06 5c 5c 5c 22 15 0b | ab 88 ca 0d 0b 41 5c 22 |..\\\"..|.....A\"|
|000007e0| 88 aa 85 ca 0d cb 5c 22 | 88 0e 06 75 88 aa 50 2c |......\"|...u..P,|
|000007f0| 87 22 20 5b 78 70 6d 2d | 67 6f 74 6f 2d 62 6f 64 |." [xpm-|goto-bod|
|00000800| 79 2d 6c 69 6e 65 20 30 | 20 6e 69 6c 20 70 69 78 |y-line 0| nil pix|
|00000810| 65 6c 2d 63 6f 6c 6f 72 | 20 70 69 78 65 6c 2d 63 |el-color| pixel-c|
|00000820| 68 61 72 73 20 65 78 74 | 20 78 70 6d 2d 63 68 61 |hars ext| xpm-cha|
|00000830| 72 73 2d 70 65 72 2d 70 | 69 78 65 6c 20 61 73 73 |rs-per-p|ixel ass|
|00000840| 6f 63 20 78 70 6d 2d 70 | 69 78 65 6c 2d 76 61 6c |oc xpm-p|ixel-val|
|00000850| 75 65 73 20 6d 61 6b 65 | 2d 65 78 74 65 6e 74 20 |ues make|-extent |
|00000860| 73 65 74 2d 65 78 74 65 | 6e 74 2d 66 61 63 65 20 |set-exte|nt-face |
|00000870| 64 65 66 61 75 6c 74 5d | 20 34 20 6e 69 6c 20 6e |default]| 4 nil n|
|00000880| 69 6c 5d 20 78 70 6d 2d | 6e 75 6d 2d 63 6f 6c 6f |il] xpm-|num-colo|
|00000890| 72 73 20 23 5b 6e 69 6c | 20 22 8a 65 62 88 c0 c1 |rs #[nil| ".eb...|
|000008a0| 64 c2 23 ab 8d c3 c4 94 | ad 85 c4 94 c4 95 7b 21 |d.#.....|......{!|
|000008b0| aa 83 c5 c6 21 29 87 22 | 20 5b 72 65 2d 73 65 61 |....!)."| [re-sea|
|000008c0| 72 63 68 2d 66 6f 72 77 | 61 72 64 20 22 5c 22 5c |rch-forw|ard "\"\|
|000008d0| 5c 73 2d 2a 5c 5c 28 5b | 30 2d 39 5d 2b 5c 5c 29 |\s-*\\([|0-9]+\\)|
|000008e0| 5c 5c 73 2d 2b 5c 5c 28 | 5b 30 2d 39 5d 2b 5c 5c |\\s-+\\(|[0-9]+\\|
|000008f0| 29 5c 5c 73 2d 2b 5c 5c | 28 5b 30 2d 39 5d 2b 5c |)\\s-+\\|([0-9]+\|
|00000900| 5c 29 5c 5c 73 2d 2b 5c | 5c 28 5b 30 2d 39 5d 2b |\)\\s-+\|\([0-9]+|
|00000910| 5c 5c 29 5c 5c 73 2d 2a | 22 20 74 20 73 74 72 69 |\\)\\s-*|" t stri|
|00000920| 6e 67 2d 74 6f 2d 69 6e | 74 20 33 20 65 72 72 6f |ng-to-in|t 3 erro|
|00000930| 72 20 22 55 6e 61 62 6c | 65 20 74 6f 20 70 61 72 |r "Unabl|e to par|
|00000940| 73 65 20 78 70 6d 20 69 | 6e 66 6f 72 6d 61 74 69 |se xpm i|nformati|
|00000950| 6f 6e 22 5d 20 34 5d 20 | 78 70 6d 2d 6d 61 6b 65 |on"] 4] |xpm-make|
|00000960| 2d 73 6f 6c 69 64 2d 70 | 69 78 6d 61 70 20 23 5b |-solid-p|ixmap #[|
|00000970| 28 63 6f 6c 6f 75 72 20 | 77 69 64 74 68 20 68 65 |(colour |width he|
|00000980| 69 67 68 74 29 20 22 c0 | 89 c1 89 1a 1b 1c 1d c6 |ight) ".|........|
|00000990| 13 0d 0e 07 57 ab 8b 0b | c8 50 13 0d c9 5c 5c 89 |....W...|.P...\\.|
|000009a0| 15 aa 70 0b ca 50 13 cb | cc 0e 0d 0e 07 0e 0e 0e |..p..P..|........|
|000009b0| 0d 25 12 0c 0e 0e 57 ab | 8b 5c 6e 0b 50 12 0c c9 |.%....W.|.\n.P...|
|000009c0| 5c 5c 89 14 aa 70 cf 5c | 6e d0 50 21 2c 87 22 20 |\\...p.\|n.P!,." |
|000009d0| 5b 30 20 6e 69 6c 20 74 | 6f 74 61 6c 20 6c 69 6e |[0 nil t|otal lin|
|000009e0| 65 20 79 20 78 20 22 2c | 5c 6e 5c 22 22 20 77 69 |e y x ",|\n\"" wi|
|000009f0| 64 74 68 20 22 2e 22 20 | 31 20 22 5c 22 22 20 66 |dth "." |1 "\"" f|
|00000a00| 6f 72 6d 61 74 20 22 2f | 2a 20 58 50 4d 20 2a 2f |ormat "/|* XPM */|
|00000a10| 5c 6e 73 74 61 74 69 63 | 20 63 68 61 72 20 2a 20 |\nstatic| char * |
|00000a20| 25 73 5b 5d 20 3d 20 7b | 5c 6e 5c 22 25 64 20 25 |%s[] = {|\n\"%d %|
|00000a30| 64 20 31 20 31 5c 22 2c | 5c 6e 5c 22 2e 20 63 20 |d 1 1\",|\n\". c |
|00000a40| 25 73 5c 22 22 20 63 6f | 6c 6f 75 72 20 68 65 69 |%s\"" co|lour hei|
|00000a50| 67 68 74 20 6d 61 6b 65 | 2d 67 6c 79 70 68 20 22 |ght make|-glyph "|
|00000a60| 7d 3b 5c 6e 22 5d 20 37 | 5d 5d 20 32 29 0a 28 66 |};\n"] 7|]] 2).(f|
|00000a70| 73 65 74 20 27 78 70 6d | 2d 73 74 6f 72 65 2d 63 |set 'xpm|-store-c|
|00000a80| 6f 6c 6f 72 20 23 5b 28 | 73 74 72 20 63 6f 6c 6f |olor #[(|str colo|
|00000a90| 72 29 20 22 c0 19 c2 0b | 21 11 c4 09 0b 5c 22 88 |r) "....|!....\".|
|00000aa0| c5 c6 0b 21 21 89 1e 07 | 47 c8 56 ab a4 0e 07 c8 |...!!...|G.V.....|
|00000ab0| 9c c9 56 ac 90 0e 07 ca | 9c c9 56 ac 88 0e 07 cb |..V.....|..V.....|
|00000ac0| 9c c9 56 ab 87 cc 09 cd | 5c 22 88 aa 85 cc 09 ce |..V.....|\"......|
|00000ad0| 5c 22 88 29 0e 0f 09 42 | 0e 10 42 16 10 d1 d2 0b |\".)...B|..B.....|
|00000ae0| d3 89 23 43 d4 d5 d6 d7 | d8 0e 0f 45 46 d9 0b 24 |..#C....|...EF..$|
|00000af0| 0e 1a 42 89 16 1a 29 87 | 22 20 5b 6e 69 6c 20 6e |..B...).|" [nil n|
|00000b00| 65 77 2d 66 61 63 65 20 | 78 70 6d 2d 6d 61 6b 65 |ew-face |xpm-make|
|00000b10| 2d 66 61 63 65 20 63 6f | 6c 6f 72 20 73 65 74 2d |-face co|lor set-|
|00000b20| 66 61 63 65 2d 62 61 63 | 6b 67 72 6f 75 6e 64 20 |face-bac|kground |
|00000b30| 63 6f 6c 6f 72 2d 72 67 | 62 2d 63 6f 6d 70 6f 6e |color-rg|b-compon|
|00000b40| 65 6e 74 73 20 6d 61 6b | 65 2d 63 6f 6c 6f 72 2d |ents mak|e-color-|
|00000b50| 73 70 65 63 69 66 69 65 | 72 20 63 63 63 20 30 20 |specifie|r ccc 0 |
|00000b60| 33 32 37 36 37 20 31 20 | 32 20 73 65 74 2d 66 61 |32767 1 |2 set-fa|
|00000b70| 63 65 2d 66 6f 72 65 67 | 72 6f 75 6e 64 20 22 62 |ce-foreg|round "b|
|00000b80| 6c 61 63 6b 22 20 22 77 | 68 69 74 65 22 20 73 74 |lack" "w|hite" st|
|00000b90| 72 20 78 70 6d 2d 70 69 | 78 65 6c 2d 76 61 6c 75 |r xpm-pi|xel-valu|
|00000ba0| 65 73 20 76 65 63 74 6f | 72 20 78 70 6d 2d 6d 61 |es vecto|r xpm-ma|
|00000bb0| 6b 65 2d 73 6f 6c 69 64 | 2d 70 69 78 6d 61 70 20 |ke-solid|-pixmap |
|00000bc0| 31 32 20 6c 61 6d 62 64 | 61 20 28 65 76 65 6e 74 |12 lambd|a (event|
|00000bd0| 29 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 20 22 |) (inter|active "|
|00000be0| 65 22 29 20 78 70 6d 2d | 74 6f 6f 6c 62 61 72 2d |e") xpm-|toolbar-|
|00000bf0| 73 65 6c 65 63 74 2d 63 | 6f 6c 6f 75 72 20 65 76 |select-c|olour ev|
|00000c00| 65 6e 74 20 74 20 78 70 | 6d 2d 70 61 6c 65 74 74 |ent t xp|m-palett|
|00000c10| 65 5d 20 39 20 22 5c 0a | 41 64 64 20 53 54 52 20 |e] 9 "\.|Add STR |
|00000c20| 74 6f 20 78 70 6d 2d 70 | 69 78 65 6c 2d 76 61 6c |to xpm-p|ixel-val|
|00000c30| 75 65 73 20 77 69 74 68 | 20 61 20 6e 65 77 20 66 |ues with| a new f|
|00000c40| 61 63 65 20 73 65 74 20 | 74 6f 20 62 61 63 6b 67 |ace set |to backg|
|00000c50| 72 6f 75 6e 64 20 43 4f | 4c 4f 52 0a 69 66 20 53 |round CO|LOR.if S|
|00000c60| 54 52 20 61 6c 72 65 61 | 64 79 20 68 61 73 20 61 |TR alrea|dy has a|
|00000c70| 6e 20 65 6e 74 72 79 2c | 20 74 68 65 20 65 78 69 |n entry,| the exi|
|00000c80| 73 74 69 6e 67 20 66 61 | 63 65 20 77 69 6c 6c 20 |sting fa|ce will |
|00000c90| 62 65 20 75 73 65 64 2c | 20 77 69 74 68 20 74 68 |be used,| with th|
|00000ca0| 65 0a 6e 65 77 20 63 6f | 6c 6f 72 20 72 65 70 6c |e.new co|lor repl|
|00000cb0| 61 63 69 6e 67 20 74 68 | 65 20 6f 6c 64 20 28 6f |acing th|e old (o|
|00000cc0| 6e 20 74 68 65 20 64 69 | 73 70 6c 61 79 20 6f 6e |n the di|splay on|
|00000cd0| 6c 79 2c 20 6e 6f 74 20 | 69 6e 20 74 68 65 20 78 |ly, not |in the x|
|00000ce0| 70 6d 20 63 6f 6c 6f 72 | 0a 64 65 66 73 21 29 22 |pm color|.defs!)"|
|00000cf0| 5d 29 0a 28 66 73 65 74 | 20 27 78 70 6d 2d 70 61 |]).(fset| 'xpm-pa|
|00000d00| 72 73 65 2d 63 6f 6c 6f | 72 20 23 5b 6e 69 6c 20 |rse-colo|r #[nil |
|00000d10| 22 c0 19 8a c0 7f 88 60 | 11 c2 79 88 c3 c4 c5 0e |"......`|..y.....|
|00000d20| 06 c7 5c 22 c8 c9 ca b0 | 05 09 cb 23 ab aa cc cd |..\"....|...#....|
|00000d30| 94 ad 85 cd 94 cd 95 7b | ce 94 ad 85 ce 94 ce 95 |.......{|........|
|00000d40| 7b 5c 22 88 cd 94 ad 85 | cd 94 cd 95 7b ce 94 ad |{\".....|....{...|
|00000d50| 85 ce 94 ce 95 7b 44 aa | 83 cf d0 21 2a 87 22 20 |.....{D.|...!*." |
|00000d60| 5b 6e 69 6c 20 65 6e 64 | 20 30 20 72 65 2d 73 65 |[nil end| 0 re-se|
|00000d70| 61 72 63 68 2d 66 6f 72 | 77 61 72 64 20 22 5c 22 |arch-for|ward "\"|
|00000d80| 5c 5c 28 22 20 6d 61 6b | 65 2d 73 74 72 69 6e 67 |\\(" mak|e-string|
|00000d90| 20 78 70 6d 2d 63 68 61 | 72 73 2d 70 65 72 2d 70 | xpm-cha|rs-per-p|
|00000da0| 69 78 65 6c 20 34 36 20 | 22 5c 5c 29 22 20 22 5c |ixel 46 |"\\)" "\|
|00000db0| 5c 73 2d 2b 5c 5c 28 5b | 63 5d 5c 5c 29 22 20 22 |\s-+\\([|c]\\)" "|
|00000dc0| 5c 5c 73 2d 2b 5c 5c 28 | 5b 5e 5c 22 5d 2b 5c 5c |\\s-+\\(|[^\"]+\\|
|00000dd0| 29 5c 22 22 20 74 20 78 | 70 6d 2d 73 74 6f 72 65 |)\"" t x|pm-store|
|00000de0| 2d 63 6f 6c 6f 72 20 31 | 20 33 20 65 72 72 6f 72 |-color 1| 3 error|
|00000df0| 20 22 55 6e 61 62 6c 65 | 20 74 6f 20 70 61 72 73 | "Unable| to pars|
|00000e00| 65 20 63 6f 6c 6f 72 22 | 5d 20 36 20 22 5c 0a 50 |e color"|] 6 "\.P|
|00000e10| 61 72 73 65 20 78 70 6d | 20 63 6f 6c 6f 72 20 73 |arse xpm| color s|
|00000e20| 74 72 69 6e 67 20 66 72 | 6f 6d 20 63 75 72 72 65 |tring fr|om curre|
|00000e30| 6e 74 20 6c 69 6e 65 20 | 61 6e 64 20 73 65 74 20 |nt line |and set |
|00000e40| 74 68 65 20 63 6f 6c 6f | 72 22 20 6e 69 6c 5d 29 |the colo|r" nil])|
|00000e50| 0a 28 66 73 65 74 20 27 | 78 70 6d 2d 61 64 64 2d |.(fset '|xpm-add-|
|00000e60| 63 6f 6c 6f 72 20 23 5b | 28 73 74 72 20 63 6f 6c |color #[|(str col|
|00000e70| 6f 72 29 20 22 8a 65 62 | 88 c0 c1 21 ac 86 c2 c3 |or) ".eb|...!....|
|00000e80| 21 88 aa 75 c2 c3 21 88 | c0 c1 21 ac 86 c2 c3 21 |!..u..!.|..!....!|
|00000e90| 88 aa 75 c4 1d c4 c6 20 | 57 ab 8a c2 c3 21 88 0d |..u.... |W....!..|
|00000ea0| 54 89 15 aa 71 29 c7 c8 | 0e 09 0e 5c 6e 23 63 88 |T...q)..|...\n#c.|
|00000eb0| cb c3 21 88 cc 20 88 65 | 62 88 c0 c1 21 ac 86 c2 |..!.. .e|b...!...|
|00000ec0| c3 21 88 aa 75 c4 1e 0d | 60 66 ce 55 ac 86 60 66 |.!..u...|`f.U..`f|
|00000ed0| cf 55 ab 85 c3 75 88 aa | 6f 0e 0d d0 57 ab 9b 60 |.U...u..|o...W..`|
|00000ee0| 66 ce 3d ab 90 0e 0d 54 | 16 0d 60 66 ce 3d ab 69 |f.=....T|..`f.=.i|
|00000ef0| c3 75 88 aa 75 c3 75 88 | aa 5f c6 20 1e 11 60 66 |.u..u.u.|._. ..`f|
|00000f00| d2 59 ab 8c 60 66 d3 58 | ab 86 d4 c3 21 88 aa 6e |.Y..`f.X|....!..n|
|00000f10| d5 0e 11 54 21 63 2b 87 | 22 20 5b 6c 6f 6f 6b 69 |...T!c+.|" [looki|
|00000f20| 6e 67 2d 61 74 20 22 5c | 5c 73 2d 2a 5c 22 22 20 |ng-at "\|\s-*\"" |
|00000f30| 6e 65 78 74 2d 6c 69 6e | 65 20 31 20 30 20 63 6f |next-lin|e 1 0 co|
|00000f40| 20 78 70 6d 2d 6e 75 6d | 2d 63 6f 6c 6f 72 73 20 | xpm-num|-colors |
|00000f50| 66 6f 72 6d 61 74 20 22 | 5c 22 25 73 09 63 20 25 |format "|\"%s.c %|
|00000f60| 73 5c 22 2c 5c 6e 22 20 | 73 74 72 20 63 6f 6c 6f |s\",\n" |str colo|
|00000f70| 72 20 70 72 65 76 69 6f | 75 73 2d 6c 69 6e 65 20 |r previo|us-line |
|00000f80| 78 70 6d 2d 70 61 72 73 | 65 2d 63 6f 6c 6f 72 20 |xpm-pars|e-color |
|00000f90| 65 6e 74 72 79 20 33 32 | 20 33 34 20 32 20 6f 6c |entry 32| 34 2 ol|
|00000fa0| 64 2d 63 6f 6c 6f 72 73 | 20 34 38 20 35 37 20 64 |d-colors| 48 57 d|
|00000fb0| 65 6c 65 74 65 2d 63 68 | 61 72 20 69 6e 74 2d 74 |elete-ch|ar int-t|
|00000fc0| 6f 2d 73 74 72 69 6e 67 | 5d 20 35 20 22 5c 0a 61 |o-string|] 5 "\.a|
|00000fd0| 64 64 20 61 20 63 6f 6c | 6f 72 20 74 6f 20 61 6e |dd a col|or to an|
|00000fe0| 20 78 70 6d 27 73 20 6c | 69 73 74 20 6f 66 20 63 | xpm's l|ist of c|
|00000ff0| 6f 6c 6f 72 20 64 65 66 | 73 22 20 22 73 50 69 78 |olor def|s" "sPix|
|00001000| 65 6c 20 63 68 61 72 61 | 63 74 65 72 3a 20 5c 6e |el chara|cter: \n|
|00001010| 73 50 69 78 65 6c 20 63 | 6f 6c 6f 72 20 28 61 6e |sPixel c|olor (an|
|00001020| 79 20 76 61 6c 69 64 20 | 58 20 63 6f 6c 6f 72 20 |y valid |X color |
|00001030| 73 74 72 69 6e 67 29 3a | 22 5d 29 0a 28 66 73 65 |string):|"]).(fse|
|00001040| 74 20 27 78 70 6d 2d 67 | 6f 74 6f 2d 63 6f 6c 6f |t 'xpm-g|oto-colo|
|00001050| 72 2d 64 65 66 20 23 5b | 28 64 65 66 29 20 22 65 |r-def #[|(def) "e|
|00001060| 62 88 c0 c1 21 ac 86 c2 | c3 21 88 aa 75 c2 c3 21 |b...!...|.!..u..!|
|00001070| 88 c0 c1 21 ac 86 c2 c3 | 21 88 aa 75 c2 0c 21 87 |...!....|!..u..!.|
|00001080| 22 20 5b 6c 6f 6f 6b 69 | 6e 67 2d 61 74 20 22 5c |" [looki|ng-at "\|
|00001090| 5c 73 2d 2a 5c 22 22 20 | 6e 65 78 74 2d 6c 69 6e |\s-*\"" |next-lin|
|000010a0| 65 20 31 20 64 65 66 5d | 20 32 20 22 5c 0a 6d 6f |e 1 def]| 2 "\.mo|
|000010b0| 76 65 20 74 6f 20 63 6f | 6c 6f 72 20 44 45 46 20 |ve to co|lor DEF |
|000010c0| 69 6e 20 74 68 65 20 78 | 70 6d 20 68 65 61 64 65 |in the x|pm heade|
|000010d0| 72 22 20 22 6e 43 6f 6c | 6f 72 20 6e 75 6d 62 65 |r" "nCol|or numbe|
|000010e0| 72 3a 22 5d 29 0a 28 66 | 73 65 74 20 27 78 70 6d |r:"]).(f|set 'xpm|
|000010f0| 2d 67 6f 74 6f 2d 62 6f | 64 79 2d 6c 69 6e 65 20 |-goto-bo|dy-line |
|00001100| 23 5b 28 6c 69 6e 65 29 | 20 22 65 62 88 c0 c1 20 |#[(line)| "eb... |
|00001110| 21 88 c2 0b 21 87 22 20 | 5b 78 70 6d 2d 67 6f 74 |!...!." |[xpm-got|
|00001120| 6f 2d 63 6f 6c 6f 72 2d | 64 65 66 20 78 70 6d 2d |o-color-|def xpm-|
|00001130| 6e 75 6d 2d 63 6f 6c 6f | 72 73 20 6e 65 78 74 2d |num-colo|rs next-|
|00001140| 6c 69 6e 65 20 6c 69 6e | 65 5d 20 32 20 22 5c 0a |line lin|e] 2 "\.|
|00001150| 6d 6f 76 65 20 74 6f 20 | 4c 49 4e 45 20 6c 69 6e |move to |LINE lin|
|00001160| 65 73 20 64 6f 77 6e 20 | 66 72 6f 6d 20 74 68 65 |es down |from the|
|00001170| 20 73 74 61 72 74 20 6f | 66 20 74 68 65 20 62 6f | start o|f the bo|
|00001180| 64 79 20 6f 66 20 61 6e | 20 78 70 6d 22 20 22 6e |dy of an| xpm" "n|
|00001190| 42 6f 64 79 20 6c 69 6e | 65 3a 22 5d 29 0a 28 66 |Body lin|e:"]).(f|
|000011a0| 73 65 74 20 27 78 70 6d | 2d 73 68 6f 77 2d 69 6d |set 'xpm|-show-im|
|000011b0| 61 67 65 20 23 5b 6e 69 | 6c 20 22 8a c0 09 21 ab |age #[ni|l "...!.|
|000011c0| 84 c2 09 21 88 c3 c4 c5 | c6 65 64 7b 23 21 16 07 |...!....|.ed{#!..|
|000011d0| 65 62 88 c8 7f 88 c9 0e | 07 60 ca 23 89 11 29 87 |eb......|.`.#..).|
|000011e0| 22 20 5b 61 6e 6e 6f 74 | 61 74 69 6f 6e 70 20 78 |" [annot|ationp x|
|000011f0| 70 6d 2d 61 6e 6e 6f 20 | 64 65 6c 65 74 65 2d 61 |pm-anno |delete-a|
|00001200| 6e 6e 6f 74 61 74 69 6f | 6e 20 6d 61 6b 65 2d 67 |nnotatio|n make-g|
|00001210| 6c 79 70 68 20 76 65 63 | 74 6f 72 20 78 70 6d 20 |lyph vec|tor xpm |
|00001220| 3a 64 61 74 61 20 78 70 | 6d 2d 67 6c 79 70 68 20 |:data xp|m-glyph |
|00001230| 6e 69 6c 20 6d 61 6b 65 | 2d 61 6e 6e 6f 74 61 74 |nil make|-annotat|
|00001240| 69 6f 6e 20 74 65 78 74 | 5d 20 36 20 22 5c 0a 44 |ion text|] 6 "\.D|
|00001250| 69 73 70 6c 61 79 20 74 | 68 65 20 78 70 6d 20 69 |isplay t|he xpm i|
|00001260| 6e 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 62 75 |n the cu|rrent bu|
|00001270| 66 66 65 72 20 61 74 20 | 74 68 65 20 65 6e 64 20 |ffer at |the end |
|00001280| 6f 66 20 74 68 65 20 74 | 6f 70 6d 6f 73 74 20 6c |of the t|opmost l|
|00001290| 69 6e 65 22 20 6e 69 6c | 5d 29 0a 28 66 73 65 74 |ine" nil|]).(fset|
|000012a0| 20 27 78 70 6d 2d 68 69 | 64 65 2d 69 6d 61 67 65 | 'xpm-hi|de-image|
|000012b0| 20 23 5b 6e 69 6c 20 22 | c0 09 21 ad 83 c2 09 21 | #[nil "|..!....!|
|000012c0| 87 22 20 5b 61 6e 6e 6f | 74 61 74 69 6f 6e 70 20 |." [anno|tationp |
|000012d0| 78 70 6d 2d 61 6e 6e 6f | 20 64 65 6c 65 74 65 2d |xpm-anno| delete-|
|000012e0| 61 6e 6e 6f 74 61 74 69 | 6f 6e 5d 20 32 20 22 5c |annotati|on] 2 "\|
|000012f0| 0a 52 65 6d 6f 76 65 20 | 74 68 65 20 69 6d 61 67 |.Remove |the imag|
|00001300| 65 20 6f 66 20 74 68 65 | 20 78 70 6d 20 66 72 6f |e of the| xpm fro|
|00001310| 6d 20 74 68 65 20 62 75 | 66 66 65 72 22 20 6e 69 |m the bu|ffer" ni|
|00001320| 6c 5d 29 0a 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |l]).(byt|e-code "|
|00001330| c0 c1 4d 88 c2 c3 21 ac | 82 c4 13 c5 c3 21 88 c6 |..M...!.|.....!..|
|00001340| c3 c7 c4 23 88 c2 c8 21 | ac 84 c9 20 16 08 c4 87 |...#...!|... ....|
|00001350| 22 20 5b 78 70 6d 2d 69 | 6e 2d 62 6f 64 79 20 23 |" [xpm-i|n-body #|
|00001360| 5b 6e 69 6c 20 22 60 18 | 8a c1 c2 21 88 08 60 56 |[nil "`.|...!..`V|
|00001370| 2a 87 22 20 5b 70 20 78 | 70 6d 2d 67 6f 74 6f 2d |*." [p x|pm-goto-|
|00001380| 62 6f 64 79 2d 6c 69 6e | 65 20 30 5d 20 32 5d 20 |body-lin|e 0] 2] |
|00001390| 62 6f 75 6e 64 70 20 78 | 70 6d 2d 6d 6f 64 65 20 |boundp x|pm-mode |
|000013a0| 6e 69 6c 20 6d 61 6b 65 | 2d 76 61 72 69 61 62 6c |nil make|-variabl|
|000013b0| 65 2d 62 75 66 66 65 72 | 2d 6c 6f 63 61 6c 20 61 |e-buffer|-local a|
|000013c0| 64 64 2d 6d 69 6e 6f 72 | 2d 6d 6f 64 65 20 22 20 |dd-minor|-mode " |
|000013d0| 58 50 4d 22 20 78 70 6d | 2d 6d 6f 64 65 2d 6d 61 |XPM" xpm|-mode-ma|
|000013e0| 70 20 6d 61 6b 65 2d 6b | 65 79 6d 61 70 5d 20 34 |p make-k|eymap] 4|
|000013f0| 29 0a 28 66 73 65 74 20 | 27 78 70 6d 2d 74 6f 6f |).(fset |'xpm-too|
|00001400| 6c 62 61 72 2d 73 65 6c | 65 63 74 2d 63 6f 6c 6f |lbar-sel|ect-colo|
|00001410| 75 72 20 23 5b 28 65 76 | 65 6e 74 20 63 68 61 72 |ur #[(ev|ent char|
|00001420| 73 29 20 22 c0 09 21 1a | c3 5c 6e 21 1c c5 c6 0c |s) "..!.|.\n!....|
|00001430| 0e 07 23 88 c8 c9 0e 5c | 6e 5c 22 16 5c 6e 0e 07 |..#....\|n\".\n..|
|00001440| 16 0b cc 0e 0d 70 0e 5c | 6e 42 5c 22 2a 87 22 20 |.....p.\|nB\"*." |
|00001450| 5b 65 76 65 6e 74 2d 74 | 6f 6f 6c 62 61 72 2d 62 |[event-t|oolbar-b|
|00001460| 75 74 74 6f 6e 20 65 76 | 65 6e 74 20 62 75 74 74 |utton ev|ent butt|
|00001470| 6f 6e 20 74 6f 6f 6c 62 | 61 72 2d 62 75 74 74 6f |on toolb|ar-butto|
|00001480| 6e 2d 68 65 6c 70 2d 73 | 74 72 69 6e 67 20 68 65 |n-help-s|tring he|
|00001490| 6c 70 20 6d 65 73 73 61 | 67 65 20 22 54 6f 6f 6c |lp messa|ge "Tool|
|000014a0| 62 61 72 20 73 65 6c 65 | 63 74 65 64 20 25 73 20 |bar sele|cted %s |
|000014b0| 28 25 73 29 22 20 63 68 | 61 72 73 20 6d 61 70 63 |(%s)" ch|ars mapc|
|000014c0| 61 72 20 23 5b 28 62 75 | 74 29 20 22 08 c1 5c 6e |ar #[(bu|t) "..\n|
|000014d0| 08 c3 48 3d 3f 49 88 08 | 87 22 20 5b 62 75 74 20 |..H=?I..|." [but |
|000014e0| 32 20 68 65 6c 70 20 33 | 5d 20 35 5d 20 78 70 6d |2 help 3|] 5] xpm|
|000014f0| 2d 70 61 6c 65 74 74 65 | 20 78 70 6d 2d 70 61 69 |-palette| xpm-pai|
|00001500| 6e 74 2d 73 74 72 69 6e | 67 20 73 65 74 2d 73 70 |nt-strin|g set-sp|
|00001510| 65 63 69 66 69 65 72 20 | 6c 65 66 74 2d 74 6f 6f |ecifier |left-too|
|00001520| 6c 62 61 72 5d 20 34 20 | 22 5c 0a 54 6f 6f 6c 62 |lbar] 4 |"\.Toolb|
|00001530| 61 72 20 62 75 74 74 6f | 6e 22 5d 29 0a 28 62 79 |ar butto|n"]).(by|
|00001540| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 4d 88 c2 c3 4d |te-code |"..M...M|
|00001550| 88 c4 c5 4d 88 c6 c7 4d | 87 22 20 5b 78 70 6d 2d |...M...M|." [xpm-|
|00001560| 6d 6f 75 73 65 2d 70 61 | 69 6e 74 20 23 5b 28 65 |mouse-pa|int #[(e|
|00001570| 76 65 6e 74 29 20 22 c0 | 09 21 88 c2 20 ab 88 0b |vent) ".|.!.. ...|
|00001580| 63 88 c4 0b 47 21 87 8a | c5 79 88 c6 75 88 60 60 |c...G!..|.y..u.``|
|00001590| 54 7b 89 13 29 87 22 20 | 5b 6d 6f 75 73 65 2d 73 |T{..)." |[mouse-s|
|000015a0| 65 74 2d 70 6f 69 6e 74 | 20 65 76 65 6e 74 20 78 |et-point| event x|
|000015b0| 70 6d 2d 69 6e 2d 62 6f | 64 79 20 78 70 6d 2d 70 |pm-in-bo|dy xpm-p|
|000015c0| 61 69 6e 74 2d 73 74 72 | 69 6e 67 20 64 65 6c 65 |aint-str|ing dele|
|000015d0| 74 65 2d 63 68 61 72 20 | 30 20 31 5d 20 32 20 6e |te-char |0 1] 2 n|
|000015e0| 69 6c 20 22 65 22 5d 20 | 78 70 6d 2d 6d 6f 75 73 |il "e"] |xpm-mous|
|000015f0| 65 2d 64 6f 77 6e 20 23 | 5b 28 65 76 65 6e 74 20 |e-down #|[(event |
|00001600| 6e 29 20 22 c0 09 21 88 | c2 20 ab b4 0b 63 88 c4 |n) "..!.|. ...c..|
|00001610| 0b 47 21 88 0d ab 83 c6 | 20 88 c7 60 53 60 53 0e |.G!.....| ..`S`S.|
|00001620| 08 5c 5c 5c 22 c9 0b 0e | 5c 6e 5c 22 1e 0b 1e 0c |.\\\"...|\n\"....|
|00001630| 0e 0b ab 89 cd 0e 0c 0e | 0b 41 5c 22 aa 85 cd 0e |........|.A\"....|
|00001640| 0c ce 5c 22 2a 87 8a cf | 79 88 d0 75 88 60 60 54 |..\"*...|y..u.``T|
|00001650| 7b 89 13 29 87 22 20 5b | 6d 6f 75 73 65 2d 73 65 |{..)." [|mouse-se|
|00001660| 74 2d 70 6f 69 6e 74 20 | 65 76 65 6e 74 20 78 70 |t-point |event xp|
|00001670| 6d 2d 69 6e 2d 62 6f 64 | 79 20 78 70 6d 2d 70 61 |m-in-bod|y xpm-pa|
|00001680| 69 6e 74 2d 73 74 72 69 | 6e 67 20 64 65 6c 65 74 |int-stri|ng delet|
|00001690| 65 2d 63 68 61 72 20 78 | 70 6d 2d 61 6c 77 61 79 |e-char x|pm-alway|
|000016a0| 73 2d 75 70 64 61 74 65 | 2d 69 6d 61 67 65 20 78 |s-update|-image x|
|000016b0| 70 6d 2d 73 68 6f 77 2d | 69 6d 61 67 65 20 6d 61 |pm-show-|image ma|
|000016c0| 6b 65 2d 65 78 74 65 6e | 74 20 78 70 6d 2d 63 68 |ke-exten|t xpm-ch|
|000016d0| 61 72 73 2d 70 65 72 2d | 70 69 78 65 6c 20 61 73 |ars-per-|pixel as|
|000016e0| 73 6f 63 20 78 70 6d 2d | 70 69 78 65 6c 2d 76 61 |soc xpm-|pixel-va|
|000016f0| 6c 75 65 73 20 70 69 78 | 65 6c 2d 63 6f 6c 6f 72 |lues pix|el-color|
|00001700| 20 65 78 74 20 73 65 74 | 2d 65 78 74 65 6e 74 2d | ext set|-extent-|
|00001710| 66 61 63 65 20 64 65 66 | 61 75 6c 74 20 30 20 31 |face def|ault 0 1|
|00001720| 5d 20 34 5d 20 78 70 6d | 2d 6d 6f 75 73 65 2d 64 |] 4] xpm|-mouse-d|
|00001730| 72 61 67 20 23 5b 28 65 | 76 65 6e 74 20 6e 20 74 |rag #[(e|vent n t|
|00001740| 69 6d 65 6f 75 74 29 20 | 22 08 ae ca c1 5c 6e 21 |imeout) |"....\n!|
|00001750| 88 c3 20 ad c2 0c 60 0c | 47 60 5c 5c 7b 98 ae b8 |.. ...`.|G`\\{...|
|00001760| c5 c6 0c 21 c7 5c 22 88 | c8 0c 47 21 88 0e 09 ab |...!.\".|..G!....|
|00001770| 83 ca 20 88 cb 60 53 60 | 53 0e 0c 5c 5c 5c 22 cd |.. ..`S`|S..\\\".|
|00001780| 0c 0e 0e 5c 22 1e 0f 1e | 10 0e 0f ab 89 d1 0e 10 |...\"...|........|
|00001790| 0e 0f 41 5c 22 aa 85 d1 | 0e 10 d2 5c 22 2a 87 22 |..A\"...|...\"*."|
|000017a0| 20 5b 74 69 6d 65 6f 75 | 74 20 6d 6f 75 73 65 2d | [timeou|t mouse-|
|000017b0| 73 65 74 2d 70 6f 69 6e | 74 20 65 76 65 6e 74 20 |set-poin|t event |
|000017c0| 78 70 6d 2d 69 6e 2d 62 | 6f 64 79 20 78 70 6d 2d |xpm-in-b|ody xpm-|
|000017d0| 70 61 69 6e 74 2d 73 74 | 72 69 6e 67 20 69 6e 73 |paint-st|ring ins|
|000017e0| 65 72 74 2d 63 68 61 72 | 20 73 74 72 69 6e 67 2d |ert-char| string-|
|000017f0| 74 6f 2d 63 68 61 72 20 | 31 20 64 65 6c 65 74 65 |to-char |1 delete|
|00001800| 2d 63 68 61 72 20 78 70 | 6d 2d 61 6c 77 61 79 73 |-char xp|m-always|
|00001810| 2d 75 70 64 61 74 65 2d | 69 6d 61 67 65 20 78 70 |-update-|image xp|
|00001820| 6d 2d 73 68 6f 77 2d 69 | 6d 61 67 65 20 6d 61 6b |m-show-i|mage mak|
|00001830| 65 2d 65 78 74 65 6e 74 | 20 78 70 6d 2d 63 68 61 |e-extent| xpm-cha|
|00001840| 72 73 2d 70 65 72 2d 70 | 69 78 65 6c 20 61 73 73 |rs-per-p|ixel ass|
|00001850| 6f 63 20 78 70 6d 2d 70 | 69 78 65 6c 2d 76 61 6c |oc xpm-p|ixel-val|
|00001860| 75 65 73 20 70 69 78 65 | 6c 2d 63 6f 6c 6f 72 20 |ues pixe|l-color |
|00001870| 65 78 74 20 73 65 74 2d | 65 78 74 65 6e 74 2d 66 |ext set-|extent-f|
|00001880| 61 63 65 20 64 65 66 61 | 75 6c 74 5d 20 34 5d 20 |ace defa|ult] 4] |
|00001890| 78 70 6d 2d 6d 6f 75 73 | 65 2d 75 70 20 23 5b 28 |xpm-mous|e-up #[(|
|000018a0| 65 76 65 6e 74 20 6e 29 | 20 22 c0 20 87 22 20 5b |event n)| ". ." [|
|000018b0| 78 70 6d 2d 73 68 6f 77 | 2d 69 6d 61 67 65 5d 20 |xpm-show|-image] |
|000018c0| 31 5d 5d 20 32 29 0a 28 | 66 73 65 74 20 27 78 70 |1]] 2).(|fset 'xp|
|000018d0| 6d 2d 6d 6f 64 65 20 23 | 5b 28 26 6f 70 74 69 6f |m-mode #|[(&optio|
|000018e0| 6e 61 6c 20 61 72 67 29 | 20 22 08 ac 84 09 3f aa |nal arg)| "....?.|
|000018f0| 85 c2 08 21 c3 56 89 11 | ad d9 c4 20 88 c5 c6 21 |...!.V..|... ...!|
|00001900| 88 c5 c7 21 88 c5 c8 21 | 88 c5 c9 21 88 c5 ca 21 |...!...!|...!...!|
|00001910| 88 cb 16 06 cc 16 07 cd | 16 08 cd 16 09 ce 16 5c |........|.......\|
|00001920| 6e c1 0e 0f 9e ae ad d0 | 0e 11 d2 d3 23 88 d0 0e |n.......|....#...|
|00001930| 11 d4 d5 23 88 d0 0e 11 | d6 d7 23 88 d0 0e 11 d8 |...#....|..#.....|
|00001940| d9 23 88 d0 0e 11 da db | 23 88 c1 0e 11 42 0e 0f |.#......|#....B..|
|00001950| 42 89 16 0f 87 22 20 5b | 61 72 67 20 78 70 6d 2d |B...." [|arg xpm-|
|00001960| 6d 6f 64 65 20 70 72 65 | 66 69 78 2d 6e 75 6d 65 |mode pre|fix-nume|
|00001970| 72 69 63 2d 76 61 6c 75 | 65 20 30 20 78 70 6d 2d |ric-valu|e 0 xpm-|
|00001980| 69 6e 69 74 20 6d 61 6b | 65 2d 6c 6f 63 61 6c 2d |init mak|e-local-|
|00001990| 76 61 72 69 61 62 6c 65 | 20 6d 6f 75 73 65 2d 74 |variable| mouse-t|
|000019a0| 72 61 63 6b 2d 64 6f 77 | 6e 2d 68 6f 6f 6b 20 6d |rack-dow|n-hook m|
|000019b0| 6f 75 73 65 2d 74 72 61 | 63 6b 2d 64 72 61 67 2d |ouse-tra|ck-drag-|
|000019c0| 68 6f 6f 6b 20 6d 6f 75 | 73 65 2d 74 72 61 63 6b |hook mou|se-track|
|000019d0| 2d 75 70 2d 68 6f 6f 6b | 20 6d 6f 75 73 65 2d 74 |-up-hook| mouse-t|
|000019e0| 72 61 63 6b 2d 64 72 61 | 67 2d 75 70 2d 68 6f 6f |rack-dra|g-up-hoo|
|000019f0| 6b 20 6d 6f 75 73 65 2d | 74 72 61 63 6b 2d 63 6c |k mouse-|track-cl|
|00001a00| 69 63 6b 2d 68 6f 6f 6b | 20 78 70 6d 2d 6d 6f 75 |ick-hook| xpm-mou|
|00001a10| 73 65 2d 64 6f 77 6e 20 | 78 70 6d 2d 6d 6f 75 73 |se-down |xpm-mous|
|00001a20| 65 2d 64 72 61 67 20 78 | 70 6d 2d 6d 6f 75 73 65 |e-drag x|pm-mouse|
|00001a30| 2d 75 70 20 6e 69 6c 20 | 6d 69 6e 6f 72 2d 6d 6f |-up nil |minor-mo|
|00001a40| 64 65 2d 6d 61 70 2d 61 | 6c 69 73 74 20 64 65 66 |de-map-a|list def|
|00001a50| 69 6e 65 2d 6b 65 79 20 | 78 70 6d 2d 6d 6f 64 65 |ine-key |xpm-mode|
|00001a60| 2d 6d 61 70 20 5b 28 63 | 6f 6e 74 72 6f 6c 20 63 |-map [(c|ontrol c|
|00001a70| 29 20 72 5d 20 78 70 6d | 2d 73 68 6f 77 2d 69 6d |) r] xpm|-show-im|
|00001a80| 61 67 65 20 5b 28 73 68 | 69 66 74 20 62 75 74 74 |age [(sh|ift butt|
|00001a90| 6f 6e 31 29 5d 20 6d 6f | 75 73 65 2d 74 72 61 63 |on1)] mo|use-trac|
|00001aa0| 6b 20 5b 62 75 74 74 6f | 6e 31 5d 20 6d 6f 75 73 |k [butto|n1] mous|
|00001ab0| 65 2d 74 72 61 63 6b 2d | 64 65 66 61 75 6c 74 20 |e-track-|default |
|00001ac0| 5b 28 63 6f 6e 74 72 6f | 6c 20 63 29 20 63 5d 20 |[(contro|l c) c] |
|00001ad0| 78 70 6d 2d 61 64 64 2d | 63 6f 6c 6f 72 20 5b 28 |xpm-add-|color [(|
|00001ae0| 63 6f 6e 74 72 6f 6c 20 | 63 29 20 70 5d 20 78 70 |control |c) p] xp|
|00001af0| 6d 2d 70 61 72 73 65 2d | 63 6f 6c 6f 72 5d 20 35 |m-parse-|color] 5|
|00001b00| 20 22 5c 0a 54 72 65 61 | 74 20 74 68 65 20 63 75 | "\.Trea|t the cu|
|00001b10| 72 72 65 6e 74 20 62 75 | 66 66 65 72 20 61 73 20 |rrent bu|ffer as |
|00001b20| 61 6e 20 78 70 6d 20 66 | 69 6c 65 20 61 6e 64 20 |an xpm f|ile and |
|00001b30| 63 6f 6c 6f 72 69 7a 65 | 20 69 74 2e 0a 0a 20 20 |colorize| it...  |
|00001b40| 53 68 69 66 74 2d 62 75 | 74 74 6f 6e 2d 31 20 6c |Shift-bu|tton-1 l|
|00001b50| 65 74 73 20 79 6f 75 20 | 70 61 69 6e 74 20 62 79 |ets you |paint by|
|00001b60| 20 64 72 61 67 67 69 6e | 67 20 74 68 65 20 6d 6f | draggin|g the mo|
|00001b70| 75 73 65 2e 20 20 53 68 | 69 66 74 2d 62 75 74 74 |use.  Sh|ift-butt|
|00001b80| 6f 6e 2d 31 20 6f 6e 20 | 61 0a 63 6f 6c 6f 72 20 |on-1 on |a.color |
|00001b90| 64 65 66 69 6e 69 74 69 | 6f 6e 20 6c 69 6e 65 20 |definiti|on line |
|00001ba0| 77 69 6c 6c 20 63 68 61 | 6e 67 65 20 74 68 65 20 |will cha|nge the |
|00001bb0| 63 75 72 72 65 6e 74 20 | 70 61 69 6e 74 69 6e 67 |current |painting|
|00001bc0| 20 63 6f 6c 6f 72 20 74 | 6f 20 74 68 61 74 20 6c | color t|o that l|
|00001bd0| 69 6e 65 27 73 0a 76 61 | 6c 75 65 2e 0a 0a 20 20 |ine's.va|lue...  |
|00001be0| 43 68 61 72 61 63 74 65 | 72 73 20 69 6e 73 65 72 |Characte|rs inser|
|00001bf0| 74 65 64 20 66 72 6f 6d | 20 74 68 65 20 6b 65 79 |ted from| the key|
|00001c00| 62 6f 61 72 64 20 77 69 | 6c 6c 20 4e 4f 54 20 62 |board wi|ll NOT b|
|00001c10| 65 20 63 6f 6c 6f 72 65 | 64 20 70 72 6f 70 65 72 |e colore|d proper|
|00001c20| 6c 79 20 79 65 74 2e 0a | 55 73 65 20 74 68 65 20 |ly yet..|Use the |
|00001c30| 6d 6f 75 73 65 2c 20 6f | 72 20 64 6f 20 78 70 6d |mouse, o|r do xpm|
|00001c40| 2d 69 6e 69 74 20 28 5c | 5c 5b 78 70 6d 2d 69 6e |-init (\|\[xpm-in|
|00001c50| 69 74 5d 29 20 61 66 74 | 65 72 20 6d 61 6b 69 6e |it]) aft|er makin|
|00001c60| 67 20 63 68 61 6e 67 65 | 73 2e 0a 0a 5c 5c 5b 78 |g change|s...\\[x|
|00001c70| 70 6d 2d 61 64 64 2d 63 | 6f 6c 6f 72 5d 20 41 64 |pm-add-c|olor] Ad|
|00001c80| 64 20 61 20 6e 65 77 20 | 63 6f 6c 6f 72 2c 20 70 |d a new |color, p|
|00001c90| 72 6f 6d 70 74 69 6e 67 | 20 66 6f 72 20 63 68 61 |rompting| for cha|
|00001ca0| 72 61 63 74 65 72 20 61 | 6e 64 20 76 61 6c 75 65 |racter a|nd value|
|00001cb0| 0a 5c 5c 5b 78 70 6d 2d | 73 68 6f 77 2d 69 6d 61 |.\\[xpm-|show-ima|
|00001cc0| 67 65 5d 20 73 68 6f 77 | 20 74 68 65 20 63 75 72 |ge] show| the cur|
|00001cd0| 72 65 6e 74 20 69 6d 61 | 67 65 20 61 74 20 74 68 |rent ima|ge at th|
|00001ce0| 65 20 74 6f 70 20 6f 66 | 20 74 68 65 20 62 75 66 |e top of| the buf|
|00001cf0| 66 65 72 0a 5c 5c 5b 78 | 70 6d 2d 70 61 72 73 65 |fer.\\[x|pm-parse|
|00001d00| 2d 63 6f 6c 6f 72 5d 20 | 70 61 72 73 65 20 74 68 |-color] |parse th|
|00001d10| 65 20 63 75 72 72 65 6e | 74 20 6c 69 6e 65 27 73 |e curren|t line's|
|00001d20| 20 63 6f 6c 6f 72 20 64 | 65 66 69 6e 69 74 69 6f | color d|efinitio|
|00001d30| 6e 20 61 6e 64 20 61 64 | 64 0a 20 20 20 69 74 20 |n and ad|d.   it |
|00001d40| 74 6f 20 74 68 65 20 63 | 6f 6c 6f 72 20 74 61 62 |to the c|olor tab|
|00001d50| 6c 65 2e 20 20 50 72 6f | 76 69 64 65 64 20 61 73 |le.  Pro|vided as|
|00001d60| 20 61 20 6d 65 61 6e 73 | 20 6f 66 20 63 68 61 6e | a means| of chan|
|00001d70| 67 69 6e 67 20 63 6f 6c | 6f 72 73 2e 0a 58 50 4d |ging col|ors..XPM|
|00001d80| 20 6d 69 6e 6f 72 20 6d | 6f 64 65 20 62 69 6e 64 | minor m|ode bind|
|00001d90| 69 6e 67 73 3a 0a 5c 5c | 7b 78 70 6d 2d 6d 6f 64 |ings:.\\|{xpm-mod|
|00001da0| 65 2d 6d 61 70 7d 22 20 | 22 50 22 5d 29 0a 28 70 |e-map}" |"P"]).(p|
|00001db0| 72 6f 76 69 64 65 20 27 | 78 70 6d 2d 6d 6f 64 65 |rovide '|xpm-mode|
|00001dc0| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+